home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / games / wasps003.zip / INCLUSIF.ZIP / ARCHIVE2.SAL < prev    next >
Text File  |  1997-01-28  |  48KB  |  1,031 lines
  1.  1007 
  2. SCRAP3.TMP
  3. EDITWASP BAS    15927  11-22-95   7:55a
  4. WASPS9   BAS    15796   2-20-95   2:08p
  5. WASPS8   BAS    15796   2-20-95   2:08p
  6. WASPS7   BAS    15796   2-20-95   2:08p
  7. WASPS6   BAS    15620   2-20-95   8:06a
  8. WASPS5   BAS    15620   2-20-95   8:06a
  9. WASPS4   BAS    15620   2-20-95   8:06a
  10. WASPS3   BAS    15647   9-23-91   1:47p
  11. WASPS2   BAS    15647   9-23-91   1:47p
  12. WASPS1   BAS    15647   9-23-91   1:47p
  13. WASCS9   BAS    15931   2-20-95   2:08p
  14. WASUS9   BAS    15926   2-20-95   2:08p
  15. WASCS8   BAS    15931   2-20-95   2:08p
  16. WASCS7   BAS    15931   2-20-95   2:08p
  17. WASCS6   BAS    15755   2-20-95   8:06a
  18. WASCS5   BAS    15755   2-20-95   8:06a
  19. WASCS4   BAS    15755   2-20-95   8:06a
  20. WASCS3   BAS    15782   9-23-91   1:47p
  21. WASCS2   BAS    15782   9-23-91   1:47p
  22. WASCS1   BAS    15782   9-23-91   1:47p
  23. WASUS8   BAS    15926   2-20-95   2:08p
  24. WASUS7   BAS    15926   2-20-95   2:08p
  25. WASUS6   BAS    15750   2-20-95   8:06a
  26. WASUS5   BAS    15750   2-20-95   8:06a
  27. WASUS4   BAS    15750   2-20-95   8:06a
  28. WASUS3   BAS    15777   9-23-91   1:47p
  29. WASUS2   BAS    15777   9-23-91   1:47p
  30. WASUS1   BAS    15777   9-23-91   1:47p
  31. WOSUS2   BAS    15771   9-23-91   1:47p
  32. WOSUS1   BAS    15771   9-23-91   1:47p
  33. WOSUS3   BAS    15771   9-23-91   1:47p
  34. WOSCS1   BAS    15776   9-23-91   1:47p
  35. WOSCS2   BAS    15776   9-23-91   1:47p
  36. WOSCS3   BAS    15776   9-23-91   1:47p
  37. WOSPS1   BAS    15641   9-23-91   1:47p
  38. WOSPS2   BAS    15641   9-23-91   1:47p
  39. WOSPS3   BAS    15641   9-23-91   1:47p
  40. ENDSCRAP3.TMP
  41. SCRAP30.TMP
  42.  961 
  43. B36.TMP
  44.  951 
  45. B35.TMP
  46.  938 
  47. B34.TMP
  48.  927 
  49. B33.TMP
  50.  914 
  51. B32.TMP
  52.  900 
  53. B31.TMP
  54.  889 
  55. B30.TMP
  56.  879 
  57. B29.TMP
  58.  869 
  59. B28.TMP
  60.  852 
  61. B27.TMP
  62.  842 
  63. B26.TMP
  64.  831 
  65. B25.TMP
  66.  820 
  67. B24.TMP
  68.  806 
  69. B23.TMP
  70.  792 
  71. B22.TMP
  72.  778 
  73. B21.TMP
  74.  763 
  75. B20.TMP
  76.  752 
  77. B19.TMP
  78.  738 
  79. B18.TMP
  80.  724 
  81. B17.TMP
  82.  711 
  83. B16.TMP
  84.  697 
  85. B15.TMP
  86.  683 
  87. B14.TMP
  88.  669 
  89. B13.TMP
  90.  655 
  91. B12.TMP
  92.  641 
  93. B11.TMP
  94.  628 
  95. B10.TMP
  96.  612 
  97. B9.TMP
  98.  600 
  99. B8.TMP
  100.  591 
  101. B7.TMP
  102.  578 
  103. B6.TMP
  104.  565 
  105. B5.TMP
  106.  552 
  107. B4.TMP
  108.  537 
  109. B3.TMP
  110.  524 
  111. B2.TMP
  112.  511 
  113. B1.TMP
  114.  488 
  115. B0.TMP
  116. ENDB0.TMP
  117. EDITWASP.BAS
  118. 1 REM     J6MaS
  119. 10 GOTO 2330
  120. 20 PRINT "ALONE OR ACTS AS A WORKER FO";
  121. 21 PRINT "R HER SISTER. IF SHE";
  122. 22 PRINT "STAYS TO HELP SHE GIVES U";
  123. 23 PRINT "P SOME OR ALL OF HE";
  124. 24 PRINT "R REPRODUCTION.          ";
  125. 25 INPUT "PRESS ENTER"; S$
  126. 30 CLS: SHELL"GLOBAL": CLS: REM CLS: SHELL"GLOBAL": CLS=CLEAR SCREEN
  127. 31 PRINT "WHICH STRATEGY SHE CH";
  128. 32 PRINT "OOSES DEPENDS ON WHETHER S";
  129. 33 PRINT "HE INHERITED ALTRUISM (NIECE";
  130. 34 PRINT "AND NEPHEW RAISING) O";
  131. 35 PRINT "R SELFISHNESS (OWN OFF";
  132. 40 PRINT "SPRING REARING) GENES.  THE ";
  133. 41 PRINT "WORD, GENE ";
  134. 50 PRINT "FREQUENCY, MENTIONED IN TH";
  135. 51 PRINT "E DISPLAYS AND ABBREVIATED G.";
  136. 52 PRINT "F., REFERS TO";
  137. 53 PRINT "THE FRACTION OF GEN";
  138. 54 PRINT "ES IN THE POPULATION         ";
  139. 60 INPUT "PRESS ENTER";S$
  140. 61 CLS: SHELL"GLOBAL": CLS:PRINT "WHICH ARE ALTRUISM GENE";
  141. 62 PRINT "S. WHEN THE G.F. INCREASES A";
  142. 63 PRINT "S TIME PASSES AN APPARENT";
  143. 64 PRINT "EXCEPTION TO DARWINIA";
  144. 65 PRINT "N THEORY SEEMS TO";
  145. 70 PRINT " OCCUR. IT TOOK PROGRAMS SUCH";
  146. 71 PRINT "AS THIS ONE TO SHO";
  147. 72 PRINT "W SCIENTISTS HOW ALTRUISM CA";
  148. 73 PRINT "N BE FAVORED BY NATURA";
  149. 74 PRINT "L SELECTION."
  150. 75 INPUT "PRESS ENTER"; S$
  151. 80 GOTO 2370
  152. 90 DIM V(8) , X(8)
  153. 100 DIM S1(20) , S2(20) , S3(20)
  154. 110 DIM W3(3)
  155. 120 DIM F3(4)
  156. 130 DIM W(4)
  157. 140 DIM F1(4) , F2(4)
  158. 150 DIM T(8 , 8)
  159. 160 DIM P1(2) , P2(2)
  160. 170 DIM B8(8) , X8(8)
  161. 180 DIM S(8)
  162. 190 DIM M(8)
  163. 200 DIM M2(8)
  164. 210 DIM H(8)
  165. 220 PRINT "GIVE ME SPEED OPTION.  TYPE <";
  166. 221 INPUT "ON> OR <OFF>"; O$
  167. 222 IF O$ = "ON" OR O$ = "OFF" THEN 230
  168. 223 PRINT "ON OROFF PLEASE": GOTO 221
  169. 230 ACUM$ = "ON": REM INPUT"ACUM$"ACUM$
  170. 240 R$ = "KIN SELECTION"
  171. 241 REM PRINT"KIND OF MODEL: CLASSICAL";
  172. 242 REM INPUT" , KIN SELECTION";R$
  173. 250 E6 = 1E-15
  174. 260 PRINT "CHOOSE DOMINANCE LEVEL O";
  175. 261 PRINT "N A SCALE BETWEN 0 AND 1";
  176. 262 PRINT ", 0 BEING ALTRUISM DOMINANT";
  177. 263 PRINT "AND 1 BEING SELFISHNES";
  178. 264 INPUT "S DOMINANT."; S: PRINT
  179. 265 IF S >= 0 AND S <= 1 THEN 270
  180. 266 PRINT "BETWEEN ZERO AND ONE PLEASE!"
  181. 267 GOTO 260
  182. 270 PRINT "GIVE THE INITIAL FREQUENC";
  183. 271 PRINT "Y OF THE ALTRUISM GENE (";
  184. 272 PRINT "A NUMBER BETWEEN 0 AND ";
  185. 273 INPUT "1 PLEASE)."; P: PRINT
  186. 274 IF P >= 0 AND P <= 1 THEN 280
  187. 275 PRINT "BETWEEN ZERO AND ONE PLEASE!"
  188. 276 GOTO 270
  189. 280 PRINT "SEGREGATION RATIO (I.E";
  190. 281 PRINT ". HOW MANY S EGGS LAID PER";
  191. 282 PRINT "A EGG BY AN A-S OR S-A FEMALE,";
  192. 283 PRINT "USUALLY 1 IN THE REA";
  193. 284 INPUT "L WORLD)"; B3: PRINT
  194. 285 PRINT "THE POPULATION YOU JUST REQ";
  195. 286 PRINT "UESTED IS BEING MIXED FR";
  196. 287 PRINT "OM 2 STRAINS. A NATURAL";
  197. 288 PRINT "TYPE POPULATION WILL BE ACHI";
  198. 289 PRINT "EVED IN 2 GENERATIONS. UN";
  199. 290 PRINT "TIL THEN A NIECE OR";
  200. 291 PRINT "NEPHEW WILL BE WORTH ONE OFFS";
  201. 292 PRINT "PRING."
  202. 293 INPUT "<PRESS ENTER>"; S$
  203. 294 B2 = B3 / (1 + B3)
  204. 300 IF P = .5 THEN P = P + 10 * E6
  205. 310 N(8) = P: N(7) = 1 - P
  206. 320 REM SIMULATION OF WASP POPULATION
  207. 330 FOR I = 1 TO 8: S(I) = I
  208. 331 M2(I) = I: H(I) = 1: NEXT I
  209. 340 O = P
  210. 350 A$ = "NO"
  211. 360 Z4 = 0: Z5 = 1: Z6 = 0: W7 = 0: Q7 = 1: Q8 = 0
  212. 370 C4 = 0
  213. 380 C5 = 0
  214. 390 FOR I = 1 TO 6
  215. 400 X(I) = 0:N(I) = 0
  216. 410 NEXT I
  217. 420 I7 = 3: X(7) = 0: X(8) = 0
  218. 430 I3 = 0
  219. 431 REM I3 COUNTS GENERATIONS
  220. 440 I3 = I3 + 1
  221. 450 IF A$ = "NO" THEN 470
  222. 460 IF C5 = 1 THEN 510
  223. 470 Z3 = N3
  224. 480 GOSUB 1370
  225. 490 C5 = 0
  226. 500 N3 = Z3
  227. 510 REM 
  228. 520 W = Z4: Q1 = Z5: Q2 = Z6
  229. 530 IF A$ = "NO" THEN 550
  230. 540 Z = 10 ^ 10: W = R * Z: Q1 = 0: Q2 = Z
  231. 550 IF I3 > 3 THEN 570
  232. 560 W = 0: Q1 = 1: Q2 = 0
  233. 570 REM IF W = 0 THEN 580 ELSE 571
  234. 571 IF ABS(W7 - W) < E6 AND ABS(Q7 - Q1) < E6 AND ABS(Q6 - Q2) < E6 THEN 590
  235. 580 C4 = 0
  236. 590 C4 = C4 + 1
  237. 600 IF I3 <> 4 THEN 620
  238. 610 REM GOSUB 1630
  239. 620 IF C4 <> 2 THEN 660
  240. 630 IF I3 < 4 THEN 660
  241. 640 GOSUB 1630
  242. 650 GOSUB 1840
  243. 660 IF C4 < 2 THEN 730
  244. 670 IF I3 < 4 THEN 730
  245. 680 C5 = 1
  246. 690 U$ = "1": IF N3 < 6 AND P > (1E-6) THEN U$ = "0"
  247. 691 IF U$ = "1" THEN 696
  248. 692 PRINT "USE OF SHORTCUTS MAY HAV";
  249. 693 PRINT "E AFFECTED THE ACCURACY ";
  250. 695 PRINT "OF FORTHCOMMING RESULTS"
  251. 696 IF O$ = "OFF" OR U$ = "0" THEN 720
  252. 700 GOSUB 1990
  253. 710 GOTO 930
  254. 720 REM 
  255. 730 W7 = W: Q7 = Q1: Q6 = Q2
  256. 740 FOR I = 1 TO 4: F3(I) = F2(I): NEXT I
  257. 750 FOR I = 1 TO 4: F1(I) = 0: F2(I) = 0: NEXT I
  258. 760 REM S IS SD, A1 IS ALPHA, G IS
  259. 761 REM GAMMA, AND M IS BETA IN THE
  260. 762 REM JTB PAPER
  261. 770 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
  262. 771 FOR A1 = 0 TO 1: FOR G = 0 TO 1: FOR M = 0 TO 1
  263. 780 IF R$ <> "CLASSICAL" THEN 840
  264. 790 IF I3 < 3 THEN 840
  265. 800 W = 0: Q2 = 0
  266. 810 Q1 = S1(I3) * (1 - I) * (1 - J)
  267. 820 Q1 = Q1 + S2(I3) * (I - J) ^ 2
  268. 830 Q1 = Q1 + S3(I3) * I * J
  269. 840 REM 
  270. 850 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
  271. 851 I9 = 4 * A1 + 2 * M + G + 8 * (1 - A1) * (1 - M) * (1 - G)
  272. 860 J8 = 2 * I + J + 4 * (1 - I) * (1 - J)
  273. 870 X1 = W * (S * (I - J) ^ 2 + I * J)
  274. 871 X1 = X1 + Q1
  275. 872 X1 = X1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
  276. 873 X1 = X1 * N(I8)
  277. 880 F1(J8) = F1(J8) + X1
  278. 890 F2(J8) = F2(J8) + N(I8)
  279. 900 B3 = 1 - (B2 * (I - J) ^ 2 + I * J)
  280. 910 CC = X1 * ABS((A1 - B3) * (M - P) * (G - B3))
  281. 911 X(I9) = X(I9) + CC
  282. 920 NEXT M: NEXT G: NEXT A1
  283. 921 NEXT K: NEXT J: NEXT I
  284. 930 REM 
  285. 940 IF O$ = "ON" THEN 1180
  286. 950 FOR I = 1 TO 4
  287. 960 IF F2(I) = 0 THEN 1180
  288. 970 W(I) = F1(I) / F2(I)
  289. 980 NEXT I
  290. 990 W3(1) = W(4): W3(3) = W(3)
  291. 1000 W3(2) = (W(1) * F2(1) + W(2) * F2(2))
  292. 1001 W3(2) = W3(2) / (F2(1) + F2(2))
  293. 1010 IF I3 > 20 THEN 1030
  294. 1020 S1(I3) = W3(1): S2(I3) = W3(2)
  295. 1021 S3(I3) = W3(3)
  296. 1030 IF 2 * W3(2) = W3(1) + W3(3) THEN 1110
  297. 1040 E7 = (W3(1) - W3(3))
  298. 1041 E7 = E7 / (2 * W3(2) - (W3(1) + W3(3)))
  299. 1050 E7 = 1 - (1 -E7) / 2
  300. 1060 S5 = 1 - W3(1) / W3(2): T5 = 1 - W3(3) / W3(2)
  301. 1070 X = S5 / (S5 + T5)
  302. 1080 X = 1 - X
  303. 1090 A = O2: B = O: C = P
  304. 1100 GOSUB 2290
  305. 1110 PRINT " FITNESS"
  306. 1120 PRINT "--------------------------";
  307. 1121 PRINT "-------"
  308. 1130 PRINT "OF AA=";: PRINT W3(1)
  309. 1131 PRINT "OF AS=";: PRINT W3(2)
  310. 1132 PRINT "OF SS=";: PRINT W3(3)
  311. 1133 PRINT "EQUILIBRIUM=";: PRINT E7
  312. 1140 REM 
  313. 1150 PRINT X
  314. 1160 PRINT U
  315. 1170 PRINT "--------------------------";
  316. 1171 PRINT "-------"
  317. 1180 REM 
  318. 1190 O2 = O
  319. 1200 E = (2 * P + O) / 3: O = P
  320. 1210 D = 0: FOR I = 1 TO 8: D = D + X(I): NEXT I
  321. 1211 IF D <> 0 THEN 1220
  322. 1212 PRINT "YOU'VE JUST KILLED OFF THE";
  323. 1213 PRINT " POPULATION. BEGIN AGAIN!"
  324. 1214 GOTO 220
  325. 1220 P = 0
  326. 1221 FOR I = 4 TO 7: P = P + X(I) / D: NEXT I: P = 1 - P
  327. 1230 REM THE PREVIOUS STATEMENT FOUND 
  328. 1231 REM THE GENE FREQUENCY FOR NEXT
  329. 1232 REM GENERATION MALES."
  330. 1233 REM THE ARRAY X IS N' IN THE JTB.
  331. 1240 P2(2) = P: P2(1) = 1 - P
  332. 1250 CLS: SHELL"GLOBAL": CLS: PRINT " G.F. (";
  333. 1251 PRINT "MALES)=";: PRINT O2
  334. 1252 PRINT " G.F. (FEMALES)=";: PRINT O
  335. 1253 PRINT "G.F. POPULATION=";: PRINT E
  336. 1254 PRINT "OFFSPRING WORTH 1 NIECE"
  337. 1255 PRINT " OR NEPHEW=";
  338. 1260 IF R = 123 THEN 1261 ELSE 1262
  339. 1261 PRINT "0/0": GOTO 1263
  340. 1262 PRINT R
  341. 1263 PRINT "GENERATION=";: PRINT I3
  342. 1270 INPUT "PRESS ENTER"; L$
  343. 1280 PRINT "WORKER CAN GIVE UP";: PRINT W
  344. 1290 PRINT "QUEEN HAS ANYWAY";: PRINT Q1
  345. 1291 PRINT "QUEEN CAN GAIN";: PRINT Q2
  346. 1300 REM 
  347. 1303 PRINT "POP.SIZE NOW/POP.SIZE LAST";
  348. 1304 PRINT " GEN.=";: PRINT D
  349. 1305 D = 0
  350. 1310 FOR I = 1 TO 8: D = D + X(I)
  351. 1311 NEXT I
  352. 1312 FOR I = 1 TO 8: N(I) = X(I) / D: X(I) = 0: NEXT I
  353. 1320 REM PRINT"THE VECTOR, N"
  354. 1330 REM FORI=1TO8:PRINTI;:PRINT"-";
  355. 1331 REM PRINTN(I);
  356. 1332 REM PRINT" ";:NEXTI:PRINT
  357. 1340 IF I3 < I7 THEN 440
  358. 1350 GOTO 2210
  359. 1360 REM TO FIND RHO, THE NUMBER OF
  360. 1361 REM OFFSPRING WORTH ONE NIECE OR
  361. 1362 REM NEPHEW
  362. 1370 R = 123: N1 = 0: N2 = 0: N3 = 0: N4 = 0
  363. 1371 D1 = 0: D2 = 0: D3 = 0: D4 = 0
  364. 1380 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
  365. 1390 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
  366. 1400 W9 = S * (I - J) ^ 2 + I * J
  367. 1401 Q9 = 1 - (S * (J - K) ^ 2 + J * K)
  368. 1410 F = B2 * (I - J) ^ 2 + I * J: T = 1 - F
  369. 1420 N1 = N1 + Q9 * N(I8) * T
  370. 1421 N2 = N2 + N(I8) * F
  371. 1422 N3 = N3 + Q9 * N(I8) * F: N4 = N4 + N(I8) * T
  372. 1430 D1 = D1 + W9 * N(I8) * F: D3 = D3 + W9 * N(I8) * T
  373. 1440 NEXT K: NEXT J: NEXT I: D2 = N4: D4 = N2
  374. 1450 IF D1 * D2 = D3 * D4 THEN RETURN
  375. 1460 R = (N1 * N2 - N3 * N4) / (D1 * D2 - D3 * D4)
  376. 1461 RETURN
  377. 1470 REM SYMBOL TABLES
  378. 1480 REM PRINT "SYMBOL TABLES"
  379. 1490 FOR I = 1 TO 8: PRINT S(I);: NEXT I: PRINT
  380. 1500 REM CONDENSED STATE VECTOR
  381. 1510 REM PRINT"CONDENSED STATE VECTOR"
  382. 1520 REM FORI=1TO8:PRINTN(I);:NEXTI
  383. 1521 REM PRINT
  384. 1530 REM UNCONDENSED STATE VECTOR
  385. 1540 REM PRINT"UNCONDENSED STATE VECTOR"
  386. 1550 REM FORI=1TO8:PRINTH(I);:NEXTI
  387. 1551 REM PRINT
  388. 1560 REM HISTOGRAM
  389. 1570 REM PRINT"HISTOGRAM"
  390. 1580 FOR I = 1 TO 8: PRINT H(I);: NEXT I: PRINT
  391. 1590 REM SUBSCRIPT DIRECTORY
  392. 1600 REM PRINT"SUBSCRIPT DIRECTORY"
  393. 1610 REM FORI=1TO8:PRINTM2(I);
  394. 1611 REM NEXTI:PRINT
  395. 1620 RETURN
  396. 1630 REM HISTOGRAM
  397. 1640 PRINT "NOW SNIFFING OUT CHANCES F";
  398. 1641 PRINT "OR SHORT CUTS"
  399. 1650 N3 = 1
  400. 1660 S(1) = 1
  401. 1670 FOR I = 1 TO 8: H(I) = 1: NEXT I
  402. 1680 I = 0
  403. 1690 I = I + 1
  404. 1700 IF I = 9 THEN 1480
  405. 1710 J = 0
  406. 1720 J = J + 1
  407. 1730 IF I = J THEN 1770
  408. 1740 IF ABS(N(I) - N(J)) < E6 THEN 1810
  409. 1750 IF J < I - 1 THEN 1720
  410. 1760 N3 = N3 + 1
  411. 1770 S(I) = N3
  412. 1780 M(N3) = N(I)
  413. 1790 M2(N3) = I
  414. 1800 GOTO 1690
  415. 1810 S(I) = S(J)
  416. 1820 H(S(I)) = H(S(I)) + 1
  417. 1830 GOTO 1690
  418. 1840 REM SETTING UP LOOK-UP TABLES
  419. 1850 PRINT "SETTING UP LOOK-UP TABLES"
  420. 1860 FOR I = 1 TO 8: PRINT S(I);: NEXT I
  421. 1870 FOR I = 1 TO N3: FOR J = 1 TO N3
  422. 1871 T(I , J) = 0: NEXT J: NEXT I
  423. 1880 FOR I = 0 TO 1: FOR J = 0 TO 1: FOR K = 0 TO 1
  424. 1881 FOR A1 = 0 TO 1: FOR M = 0 TO 1: FOR G1 = 0 TO 1
  425. 1890 I8 = 4 * I + 2 * J + K + 8 * (1 - I) * (1 - J) * (1 - K)
  426. 1900 J8 = 4 * A1 + 2 * M + G1
  427. 1901 J8 = J8 + 8 * (1 - A1) * (1 - M) * (1 - G1)
  428. 1910 Y = W * (S * (I - J) ^ 2 + I * J)
  429. 1911 Y = Y + Q1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
  430. 1920 Y1 = (1 - A1) - (B2 * (I - J) ^ 2 + I * J)
  431. 1921 Y2 = (1 - G1) - (B2 * (I - J) ^ 2 + I * J)
  432. 1922 Y = Y * ABS(Y1 * Y2)
  433. 1930 Y = Y / H(S(J8))
  434. 1940 T(S(I8) , S(J8)) = T(S(I8) , S(J8)) + Y
  435. 1950 NEXT G1: NEXT M: NEXT A1
  436. 1951 NEXT K: NEXT J: NEXT I
  437. 1960 PRINT "THE MATRIX T"
  438. 1970 FOR I = 1 TO 8: FOR J = 1 TO 8
  439. 1971 PRINT T(I , J);: NEXT J: NEXT I: PRINT
  440. 1980 RETURN
  441. 1990 REM THE SIMULATION USING REDUCED
  442. 1991 REM MATRIX
  443. 2000 PRINT "NOW SIMULATING WITH SHOR";
  444. 2001 PRINT "T CUTS"
  445. 2010 P2(2) = P: P2(1) = 1 - P
  446. 2020 FOR I = 1 TO 8
  447. 2030 M(S(I)) = N(I)
  448. 2040 NEXT I
  449. 2050 FOR I = 1 TO 8: B8(I) = 0: NEXT I
  450. 2060 FOR I = 1 TO N3: X8(I) = 0: NEXT I
  451. 2070 FOR A1 = 0 TO 1: FOR M = 0 TO 1: FOR G1 = 0 TO 1
  452. 2080 I8 = 4 * A1 + 2 * M + G1
  453. 2081 I8 = I8 + 8 * (1 - A1) * (1 - M) * (1 - G1)
  454. 2090 M7 = M + 2 * (1 - M)
  455. 2100 Y = P2(M7)
  456. 2110 Y = Y / H(S(I8))
  457. 2120 IF ACUM$ = "ON" THEN 2121 ELSE 2122
  458. 2121 B8(S(I8)) = B8(S(I8)) + Y: GOTO 2130
  459. 2122 B8(S(I8)) = P2(M7)
  460. 2130 NEXT G1: NEXT M: NEXT A1
  461. 2140 FOR I = 1 TO N3: FOR J = 1 TO N3
  462. 2150 X8(J) = X8(J) + M(I) * T(I , J) * B8(J)
  463. 2160 NEXT J: NEXT I
  464. 2170 FOR I = 1 TO 8
  465. 2180 X(I) = X8(S(I))
  466. 2190 NEXT I
  467. 2200 RETURN
  468. 2210 PRINT "HOW MANY OFFSPRING DOES ";
  469. 2211 PRINT "A WORKER GIVE UP TO STAY A";
  470. 2212 INPUT "ND HELP THE QUEEN"; Z4
  471. 2220 PRINT "HOW MANYOFFSPRING DOES ";
  472. 2221 INPUT "A QUEEN HAVE BY HERSELF"; Z5
  473. 2230 PRINT "HOW MANY EXTRAOFFSPRING D";
  474. 2231 PRINT "OES THE QUEEN GAIN WHEN TH";
  475. 2232 PRINT "E WORKER STAYS AND HELPS";
  476. 2233 INPUT " HER"; Z6
  477. 2240 PRINT "DO YOU WANT ME TO REPLACE";
  478. 2241 PRINT " THESE 3 NUMBERS YOU JUST";
  479. 2242 PRINT " ENTERED SO AS TO PERFECTL";
  480. 2243 PRINT "Y HANDICAP THE RACE BETWEE";
  481. 2244 PRINT "N THE ALTRUISM GENE AND TH";
  482. 2245 INPUT "E SELFISHNESS GENE"; A$
  483. 2246 REM IF A$ = "Y" OR A$ = "N" THEN 2250
  484. 2247 IF A$ = "YES" OR A$ = "NO" THEN 2250
  485. 2248 PRINT "YES OR NO PLEASE!": GOTO 2240
  486. 2250 C5 = 0
  487. 2260 W = Z4: Q1 = Z5: Q2 = Z6
  488. 2270 PRINT "FOR HOW MANY GENERATIONS";
  489. 2271 PRINT " SHOULD THIS"
  490. 2272 PRINT "SCHEME LAST";
  491. 2273 PRINT " (USE 0 HERE TO CANCEL ";
  492. 2274 PRINT "YOUR ORDER OR 0 FOR THE L";
  493. 2275 PRINT "AST 3 VALUES TO RES";
  494. 2276 INPUT "TART)"; Z7
  495. 2280 I7 = I7 + Z7: GOTO 1340
  496. 2290 REM FIND ASYMPTOTE
  497. 2300 IF 2 * B - A - C = 0 THEN 2320
  498. 2310 U = (B ^ 2 - A * C) / (2 * B - A - C)
  499. 2320 RETURN
  500. 2330 CLS: SHELL"GLOBAL": CLS: REM CLS: SHELL"GLOBAL": CLS=CLEAR SCREEN
  501. 2331 PRINT "THIS PROGRAM SIMULATES";
  502. 2332 PRINT " A POPULATION OF POLISTES";
  503. 2333 PRINT " WASPS. IN EACH GENERATION";
  504. 2334 PRINT " THE ";
  505. 2340 PRINT
  506. 2341 PRINT "          <ENTER> = READ ON.         "; CHR$(34); "S"; CHR$(34); " = ";
  507. 2342 PRINT "GO ON WITH ";
  508. 2343 INPUT "SIMULATION>"; S$
  509. 2344 IF S$ = "S" THEN 90
  510. 2350 CLS: SHELL"GLOBAL": CLS: PRINT "FEMALES FORM PAIRS OF ";
  511. 2351 PRINT "TWO SISTERS. A BRIE";
  512. 2352 PRINT "F SKIRMISH OCCURS IN EACH";
  513. 2353 PRINT "PAIR. THE WINNER TRI";
  514. 2354 PRINT "ES TO DOMINATE THE LOSE";
  515. 2355 PRINT "R. THE LOSER EITHER FLIES";
  516. 2356 PRINT "OFF TO FOUND A NEST ";
  517. 2360 GOTO 20
  518. 2370 CLS: SHELL"GLOBAL": CLS:PRINT "WHEN RUNNING THE PROGR";
  519. 2371 PRINT "AM YOU MAY CHOOSE TO TURN ";
  520. 2372 PRINT "THE SPEED OPTION ON. THIS";
  521. 2373 PRINT "WILL SIGNAL THE COMPUTER ";
  522. 2374 PRINT "TO SEEK AND LOCATE ALL";
  523. 2375 PRINT " PAIRS, TRIOS, ETC. OF";
  524. 2376 PRINT "QUANTITIES WHICH HAVE";
  525. 2377 PRINT " ALWAYS EQUALLED AND IT IS";
  526. 2378 PRINT " ASSUMED ALWAYS WILL";
  527. 2379 PRINT "EQUAL EACH OTHER."
  528. 2380 INPUT "PRESS ENTER"; S$
  529. 2390 CLS: SHELL"GLOBAL": CLS: PRINT "THUS THE NUMBER OF WOR";
  530. 2391 PRINT "KERS WITH ONE ALTRUISM";
  531. 2392 PRINT " GENE AND ONE SELFISHNESS";
  532. 2393 PRINT "GENE WHOSE QUEENS HAPPE";
  533. 2394 PRINT "N TO HAVE TWO ALTRUISM GENE";
  534. 2395 PRINT "S HAS ALWAYS EQUALLED AND";
  535. 2396 PRINT " WILL ";
  536. 2400 PRINT "ALWAYS EQUAL THE NUMBER OF";
  537. 2401 PRINT " WORKERS WITH TWO ALTRUISM ";
  538. 2402 PRINT "GENES WHOSE QUEENS HAPPEN ";
  539. 2403 PRINT "TO HAVE ONE ALTRUISM GEN";
  540. 2404 PRINT "E AND ONE SELFISHNESS ";
  541. 2405 PRINT "GENE. ";
  542. 2410 INPUT "  PRESS ENTER"; S$
  543. 2420 CLS: SHELL"GLOBAL": CLS: PRINT "THE COMPUTER SAVES TIM";
  544. 2421 PRINT "E IN 2 WAYS. (1) IF ALL T";
  545. 2422 PRINT "HE NUMBERS IN A GROUP EQUAL";
  546. 2423 PRINT "EACH OTHER, THEN WHY COMP";
  547. 2424 PRINT "UTE THEM ALL? YOU NEED O";
  548. 2425 PRINT "NLY CALCULATE ONE OF THEM";
  549. 2426 PRINT "THEN COPY THE RESULT ";
  550. 2427 PRINT "INTO THE SPACES RESERVED FO";
  551. 2428 PRINT "R THE OTHERS."
  552. 2429 INPUT "PRESS ENTER"; S$
  553. 2430 CLS: SHELL"GLOBAL": CLS: PRINT "(2) IF A BUNCH OF";
  554. 2431 PRINT " DIFFERENT NUMBERS NEEDTO ";
  555. 2432 PRINT "BE ALL MULTIPLIED BY THE";
  556. 2433 PRINT"SAME THING AND ADDED";
  557. 2434 PRINT" AFTERWARDS, YOU CAN SAVE";
  558. 2435 PRINT" A LOT OF TIME BY ADD THEM";
  559. 2436 PRINT"FIRST AND DOING "
  560. 2440 INPUT"PRESS ENTER";S$
  561. 2450 CLS: SHELL"GLOBAL": CLS:PRINT"THE MULTIPLICATION TO ";
  562. 2451 PRINT"THE SUM. FOR EXAMPLE, (2";
  563. 2452 PRINT" TIMES 3) PLUS (8 TIMES 3)";
  564. 2453 PRINT" PLUS (7 TIMES 3) IS THE";
  565. 2454 PRINT" SAME AS";
  566. 2455 PRINT" (2 PLUS 8 PL";
  567. 2456 PRINT"US 7) TIMES 3."
  568. 2460 INPUT"PRESS ENTER";S$
  569. 2470 CLS: SHELL"GLOBAL": CLS:PRINT"THE COMPUTER WILL SNIF";
  570. 2471 PRINT"F OUT CHANCES TO SAVE TIM";
  571. 2472 PRINT"E USING THESE TWO TRICKS BY";
  572. 2473 PRINT"LOCATING GROUPS OF";
  573. 2474 PRINT" NUMBERS WHICH ALL EQUA";
  574. 2475 PRINT"L EACH OTHER. IT WILL FIND";
  575. 2476 PRINT"THEM WHERE YOU, I, AN";
  576. 2477 PRINT"D THE MOST EXPERIENCED ";
  577. 2480 PRINT"GENETICIST WOULD NOT DREAM";
  578. 2481 PRINT"RANDOM FLUCTUATIONS";
  579. 2482 PRINT" WILL NOT BOTHER US BECAUS";
  580. 2483 PRINT"E WE ARE ASSUMING AN";
  581. 2484 PRINT"INFINITE POPULATION.";
  582. 2490 FOR I = 1 TO 4000: NEXT I
  583. 2491 INPUT " PRESS ENTER"; S$:CLS: SHELL"GLOBAL": CLS
  584. 2500 GOTO 90
  585. 2510 REM 
  586. 2520 REM REFERENCES
  587. 2530 REM ORLOVE M.J. 1981 WASPS AND THE
  588. 2531 REM IMPOSIBLE ELEVATOR
  589. 2540 REM CREATIVE COMPUTING OCTOBER
  590. 2541 REM 1981 REPRINTED IN
  591. 2542 REM "COMPUTERS IN SCIENCE AND
  592. 2543 REM SOCIAL STUDIES"
  593. 2544 REM (VERY INTRODUCTORY)
  594. 2550 REM ORLOVE M.J. (1982)
  595. 2551 REM J. THEOR. BIOL. V96 PP107-128
  596. 2552 REM (EXPLANATION OF SPEED OPTION
  597. 2553 REM IN APPENDIX)
  598. 2560 REM ORLOVE M.J. (1975)
  599. 2561 REM J. THEOR. BIOL. V49 PP289-310
  600. 2562 REM (EXPLANATION OF MODEL)
  601. 2570 REM 
  602. ENDEDITWASP.BAS
  603. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  604. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  605. ENDB1.TMP
  606. WASPS9.BAS
  607. 1 REM     J6OaS
  608. 30 CLS: REM CLS=CLEAR SCREEN
  609. 61 CLS:PRINT "WHICH ARE ALTRUISM GENE";
  610. 571 AYE = W7 / (W7 + Q7 + Q6): BEE = Q7 / (W7 + Q7 + Q6): SEE = Q6 / (W7 + Q7 + Q6)
  611. 572 PEE = W / (W + Q1 + Q2): CUE = Q1 / (W + Q1 + Q2): ARE = Q2 / (W + Q1 + Q2)
  612. 573 IF (AYE*CUE = PEE*BEE) AND (AYE*ARE = PEE*SEE) THEN 590
  613. 1250 CLS: PRINT " G.F. (";
  614. 2330 CLS: REM CLS=CLEAR SCREEN
  615. 2350 CLS: PRINT "FEMALES FORM PAIRS OF ";
  616. 2370 CLS:PRINT "WHEN RUNNING THE PROGR";
  617. 2390 CLS: PRINT "THUS THE NUMBER OF WOR";
  618. 2420 CLS: PRINT "THE COMPUTER SAVES TIM";
  619. 2430 CLS: PRINT "(2) IF A BUNCH OF";
  620. 2450 CLS:PRINT"THE MULTIPLICATION TO ";
  621. 2470 CLS:PRINT"THE COMPUTER WILL SNIF";
  622. 2491 INPUT " PRESS ENTER"; S$:CLS
  623. ENDWASPS9.BAS
  624.  990 
  625. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -488 489 0 0 0 0 0 0 0 0 
  626. 1 1 1 1 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  627. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  628. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  629. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 
  630. 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 
  631. 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 22 
  632. ENDB2.TMP
  633. WASPS8.BAS
  634. ENDWASPS8.BAS
  635.  1023 
  636. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -21 0 0 0 0 0 0 0 0 22 1 -23 24 -24 25 -25 0 26 1 1 1 1 -26 -488 1 1 1 1 1 1 483 -481 1 1 1 1 
  637. 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  638. 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  639. 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  640. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 
  641. -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 
  642. 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 33 
  643. ENDB3.TMP
  644. WASPS7.BAS
  645. ENDWASPS7.BAS
  646.  1037 
  647. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -32 0 0 0 0 0 0 0 0 0 33 1 -34 35 -35 36 -36 0 37 1 1 1 1 
  648. -37 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  649. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  650. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  651. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 
  652. 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 
  653. 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 44 
  654. ENDB4.TMP
  655. WASPS6.BAS
  656. 1 REM     J6NaS
  657. 571 IF (W*Q7 = W7*Q1) AND (W*Q6 = W7*Q2) THEN 590
  658. ENDWASPS6.BAS
  659.  1048 
  660. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -43 0 0 0 0 0 0 0 0 0 
  661. 44 1 -45 46 -46 47 -47 0 48 1 1 1 1 1 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 
  662. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  663. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  664. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 
  665. 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 
  666. 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 57 
  667. ENDB5.TMP
  668. WASPS5.BAS
  669. ENDWASPS5.BAS
  670.  1063 
  671. 1 1 1 1 1 -56 0 0 0 0 0 0 0 0 0 57 1 -58 59 -59 60 -60 0 61 1 1 1 1 -12 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 
  672. 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  673. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 
  674. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 
  675. 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 
  676. 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 
  677. 1 1 1 1 1 1 1 1 1 1 1 1 68 
  678. ENDB6.TMP
  679. WASPS4.BAS
  680. ENDWASPS4.BAS
  681.  1077 
  682. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -67 0 0 0 0 0 0 0 0 0 0 68 1 1 -70 71 -71 0 0 72 1 1 1 1 -23 -537 1 1 1 1 1 1 
  683. 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  684. 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  685. 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  686. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 
  687. 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 
  688. 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 79 
  689. ENDB7.TMP
  690. WASPS3.BAS
  691. ENDWASPS3.BAS
  692.  1090 
  693. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -78 0 0 0 0 0 0 0 0 0 0 79 1 -80 81 -81 82 -82 0 
  694. 83 1 1 1 1 -572 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  695. 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 90 
  696. ENDB8.TMP
  697. WASPS2.BAS
  698. ENDWASPS2.BAS
  699.  1103 
  700. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -89 0 0 0 0 0 
  701. 0 0 0 0 0 90 1 -91 0 0 25 -25 0 26 1 65 1 1 -579 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 
  702. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  703. 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 
  704. 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  705. 1 1 97 
  706. ENDB9.TMP
  707. WASPS1.BAS
  708. ENDWASPS1.BAS
  709.  1113 
  710. 1 1 1 -96 0 0 0 0 0 0 0 0 0 0 97 1 -98 0 0 99 -99 0 0 100 1 1 1 1 -589 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 
  711. 1 1 1 1 1 1 1 1 1 1 1 1 107 
  712. ENDB10.TMP
  713. WASCS9.BAS
  714. 750 FOR I = 1 TO 4: F1(I) = 0: F2(I) = 0: NEXT I: XD = 0
  715. 840 REM
  716. 872 XC = X1 + Q2 * R * (1 - (S * (I - J) ^ 2 + I * J)): X1 = X1 + Q2 * (1 - (S * (J - K) ^ 2 + J * K))
  717. 873 X1 = X1 * N(I8): XD = XD + Q2 * (1 - R) * (1 - (S * (I - J) ^ 2 + I * J)) * N(I8) / 8
  718. 880 F1(J8) = F1(J8) + XC / 16
  719. 890 F2(J8) = F2(J8) + N(I8) / 8
  720. 970 W(I) = F1(I) + XD
  721. 2530 REM ORLOVE M.J. 1981 WASPS AND THE
  722. ENDWASCS9.BAS
  723.  1127 
  724. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -106 0 0 0 0 0 0 0 0 0 0 0 107 -38 -69 0 71 -71 0 0 72 1 35 1 1 -106 -488 1 1 1 1 1 1 483 -481 
  725. 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  726. 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 
  727. 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  728. 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 121 
  729. ENDB11.TMP
  730. WASUS9.BAS
  731. 970 W(I) = F1(I)
  732. 2530 REM ORLOVE M.J. 1981 WASPS AND THE
  733. ENDWASUS9.BAS
  734.  1143 
  735. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -120 0 0 0 0 0 0 0 0 0 0 0 121 1 -122 123 1 -42 -82 
  736. 0 83 1 41 1 1 -123 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  737. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 
  738. 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  739. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  740. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 
  741. 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 
  742. 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 132 
  743. ENDB12.TMP
  744. WASCS8.BAS
  745. ENDWASCS8.BAS
  746.  1156 
  747. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -131 0 0 0 0 0 
  748. 0 0 0 0 0 0 132 1 -133 134 1 1 -136 0 137 1 1 1 1 -137 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 
  749. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 
  750. 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 
  751. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 
  752. 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 
  753. 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 
  754. 1 1 1 1 1 144 
  755. ENDB13.TMP
  756. WASCS7.BAS
  757. ENDWASCS7.BAS
  758.  1171 
  759. 1 1 1 1 1 1 1 1 -143 0 0 0 0 0 0 0 0 0 0 0 144 1 -145 146 1 1 -148 0 0 149 1 1 1 1 -149 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 
  760. 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  761. 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 
  762. 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  763. 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  764. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 
  765. 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 
  766. 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 156 
  767. ENDB14.TMP
  768. WASCS6.BAS
  769. ENDWASCS6.BAS
  770.  1183 
  771. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -155 0 0 0 0 0 0 0 0 0 0 0 0 156 1 -157 158 1 1 -160 0 161 1 1 1 1 -112 -537 
  772. 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  773. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 
  774. -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  775. 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  776. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 
  777. 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 
  778. -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 168 
  779. ENDB15.TMP
  780. WASCS5.BAS
  781. ENDWASCS5.BAS
  782.  1197 
  783. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -167 0 0 0 0 0 0 0 0 0 0 0 0 168 
  784. 1 -169 170 1 1 -172 0 173 1 1 1 1 -124 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  785. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  786. 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  787. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  788. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 
  789. 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 
  790. 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 180 
  791. ENDB16.TMP
  792. WASCS4.BAS
  793. ENDWASCS4.BAS
  794.  1211 
  795. -179 0 0 0 0 0 0 0 0 0 0 0 0 180 1 -181 182 1 1 -184 0 185 1 1 1 1 -136 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 
  796. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 
  797. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 
  798. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 
  799. 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 
  800. 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 
  801. 1 1 1 1 1 1 1 1 1 1 192 
  802. ENDB17.TMP
  803. WASCS3.BAS
  804. ENDWASCS3.BAS
  805.  1226 
  806. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -191 0 0 0 0 0 0 0 0 0 0 0 0 0 192 -192 193 1 1 -195 0 0 196 1 1 1 1 -685 1 1 1 1 1 1 1 483 
  807. -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  808. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 
  809. 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  810. 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  811. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 
  812. 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 
  813. 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 203 
  814. ENDB18.TMP
  815. WASCS2.BAS
  816. ENDWASCS2.BAS
  817.  1239 
  818. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -202 0 0 0 0 0 0 0 0 0 0 0 0 0 203 1 -204 205 1 1 -207 0 208 
  819. 1 1 1 1 -697 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  820. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 
  821. 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  822. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  823. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 
  824. 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 
  825. 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 215 
  826. ENDB19.TMP
  827. WASCS1.BAS
  828. ENDWASCS1.BAS
  829.  1253 
  830. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -214 0 0 0 0 0 0 0 0 
  831. 0 0 0 0 0 215 1 -216 217 1 1 -219 0 220 1 1 1 1 -709 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 
  832. 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 
  833. 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 
  834. 1 1 227 
  835. ENDB20.TMP
  836. WASUS8.BAS
  837. ENDWASUS8.BAS
  838.  1270 
  839. 1 1 1 1 1 -226 0 0 0 0 0 0 0 0 0 0 0 0 0 227 1 -228 0 229 -130 -99 0 0 100 130 1 1 1 -229 -488 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 
  840. 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  841. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 377 
  842. 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 
  843. 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 
  844. -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  845. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 
  846. 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 
  847. 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 236 
  848. ENDB21.TMP
  849. WASUS7.BAS
  850. ENDWASUS7.BAS
  851.  1281 
  852. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -235 0 0 0 0 0 0 0 0 0 0 0 0 0 0 236 1 1 1 1 1 -241 0 242 1 1 1 1 -242 -488 1 1 1 1 
  853. 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  854. 1 1 1 1 1 1 1 1 1 1 377 1 1 -377 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 
  855. 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  856. 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  857. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 
  858. 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 
  859. 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 249 
  860. ENDB22.TMP
  861. WASUS6.BAS
  862. ENDWASUS6.BAS
  863.  1294 
  864. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -248 0 0 0 0 0 0 0 0 0 0 0 0 0 0 249 1 -250 251 
  865. 1 1 -253 0 254 1 1 1 1 -205 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  866. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 
  867. 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  868. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  869. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 
  870. 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 
  871. 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 261 
  872. ENDB23.TMP
  873. WASUS5.BAS
  874. ENDWASUS5.BAS
  875.  1308 
  876. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -260 0 0 0 0 
  877. 0 0 0 0 0 0 0 0 0 0 261 1 -262 263 1 1 -265 0 266 1 1 1 1 -217 -537 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 
  878. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 
  879. 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 
  880. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 
  881. 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 
  882. 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 
  883. 1 1 1 1 1 1 1 273 
  884. ENDB24.TMP
  885. WASUS4.BAS
  886. ENDWASUS4.BAS
  887.  1323 
  888. 1 1 1 1 1 1 1 1 1 -272 0 0 0 0 0 0 0 0 0 0 0 0 0 0 273 1 -274 275 1 1 -277 0 0 278 1 1 1 1 -229 -537 1 1 1 1 1 1 483 -481 1 1 
  889. 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  890. 1 1 1 1 424 -422 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 
  891. 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  892. 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 285 
  893. ENDB25.TMP
  894. WASUS3.BAS
  895. ENDWASUS3.BAS
  896.  1337 
  897. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -284 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 285 1 -286 287 1 -252 -36 0 37 1 251 
  898. 1 1 -776 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  899. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 
  900. 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  901. 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 294 
  902. ENDB26.TMP
  903. WASUS2.BAS
  904. ENDWASUS2.BAS
  905.  1348 
  906. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -293 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 
  907. 294 1 -295 296 1 -250 -47 0 48 1 249 1 1 -785 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 
  908. 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  909. 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 303 
  910. ENDB27.TMP
  911. WASUS1.BAS
  912. ENDWASUS1.BAS
  913.  1359 
  914. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -302 0 0 0 0 
  915. 0 0 0 0 0 0 0 0 0 0 0 303 1 -304 0 305 -245 -60 0 61 1 244 1 1 -793 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 
  916. 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 
  917. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 
  918. 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 
  919. -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 
  920. 1 1 1 1 1 1 1 1 311 
  921. ENDB28.TMP
  922. WOSUS2.BAS
  923. 230 INPUT"ACUM$"; ACUM$
  924. 240 REM R$ = "KIN SELECTION"
  925. 241 X = X: PRINT"KIND OF MODEL: CLASSICAL";
  926. 242 X = X: INPUT" , KIN SELECTION";R$
  927. ENDWOSUS2.BAS
  928.  1370 
  929. 1 1 1 1 1 -310 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 311 1 -312 0 313 1 -314 0 0 315 1 1 1 1 -804 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 
  930. 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 
  931. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 
  932. 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 326 
  933. ENDB29.TMP
  934. WOSUS1.BAS
  935. ENDWOSUS1.BAS
  936.  1387 
  937. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -325 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 326 1 -327 328 -88 1 -241 0 242 1 86 
  938. 1 1 -816 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  939. 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  940. 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 334 
  941. ENDB30.TMP
  942. WOSUS3.BAS
  943. ENDWOSUS3.BAS
  944.  1397 
  945. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -333 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 334 
  946. 1 1 -40 1 -250 -47 0 48 1 288 1 1 -824 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  947. 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  948. 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 444 -442 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  949. 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 146 -144 1 1 1 1 1 1 1 1 1 1 1 1 1 342 
  950. ENDB31.TMP
  951. WOSCS1.BAS
  952. ENDWOSCS1.BAS
  953.  1407 
  954. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -341 0 0 0 0 0 0 0 
  955. 0 0 0 0 0 0 0 0 0 342 1 1 -344 345 -161 -184 0 185 1 160 1 1 -833 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 
  956. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  957. 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 1 1 1 1 433 -431 1 1 1 1 1 1 
  958. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 
  959. 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 
  960. 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 
  961. 1 1 1 1 1 1 351 
  962. ENDB32.TMP
  963. WOSCS2.BAS
  964. ENDWOSCS2.BAS
  965.  1419 
  966. 1 1 1 -350 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 351 1 1 -353 354 1 -355 0 0 356 1 1 1 1 -845 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 
  967. 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 
  968. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 -445 1 1 1 1 442 1 1 1 -440 1 1 1 1 
  969. 1 1 1 1 433 -431 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 
  970. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 
  971. 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 
  972. -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 363 
  973. ENDB33.TMP
  974. WOSCS3.BAS
  975. ENDWOSCS3.BAS
  976.  1433 
  977. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -362 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 363 1 -364 365 1 -366 0 0 367 1 1 1 1 -856 1 
  978. 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 
  979. 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  980. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 458 -456 1 1 1 1 1 1 1 1 1 1 447 
  981. -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 135 -133 1 1 1 1 1 1 1 1 1 1 1 1 1 374 
  982. ENDB34.TMP
  983. WOSPS1.BAS
  984. ENDWOSPS1.BAS
  985.  1446 
  986. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -373 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 374 1 
  987. 1 1 -206 1 -172 0 173 1 204 1 1 -865 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  988. 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  989. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 282 -280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  990. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 115 -113 1 1 1 1 1 
  991. 1 1 1 106 -104 1 1 1 1 1 1 99 -97 1 1 1 1 1 1 1 1 1 89 -87 1 1 1 1 1 1 1 1 1 1 1 1 76 -74 1 1 1 1 1 1 1 1 67 -65 1 1 
  992. 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 383 
  993. ENDB35.TMP
  994. WOSPS2.BAS
  995. ENDWOSPS2.BAS
  996.  1457 
  997. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 -382 0 0 0 0 0 0 0 0 
  998. 0 0 0 0 0 0 0 0 0 383 1 1 -385 0 386 -386 0 387 1 1 1 1 -876 1 1 1 1 1 1 1 483 -481 1 1 1 1 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 
  999. 1 1 1 1 1 1 1 67 -65 1 1 1 1 1 1 60 -58 1 1 1 1 1 1 53 -51 1 1 1 1 1 1 1 1 1 1 1 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 
  1000. 1 1 1 1 1 1 394 
  1001. ENDB36.TMP
  1002. WOSPS3.BAS
  1003. ENDWOSPS3.BAS
  1004.  1471 
  1005. 1 1 1 1 -393 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 394 1 -42 -353 0 355 -355 0 0 356 40 1 1 1 -884 1 1 1 1 1 1 1 483 -481 1 1 1 1 
  1006. 1 1 1 1 1 1 1 1 470 -468 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 755 1 1 1 -753 1 1 1 1 1 1 1 1 
  1007. 1 40 -38 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 402 
  1008. ENDSCRAP30.TMP
  1009.  1034 
  1010. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1011. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1012. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1013. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1014. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1015. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1016. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1017. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1018. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1019. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1020. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1021. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1022. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1023. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1024. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1025. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1026. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1027. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1028. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1029. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
  1030. 1 1 1 -401 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 402 1 -403 0 0 160 -160 0 161 1 242 1 
  1031.